home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mdishe / fabout.frm < prev    next >
Text File  |  1994-12-28  |  4KB  |  143 lines
  1. VERSION 2.00
  2. Begin Form fAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About"
  6.    ClientHeight    =   1905
  7.    ClientLeft      =   3465
  8.    ClientTop       =   3435
  9.    ClientWidth     =   5970
  10.    ControlBox      =   0   'False
  11.    ForeColor       =   &H00000000&
  12.    Height          =   2310
  13.    Left            =   3405
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   1905
  18.    ScaleWidth      =   5970
  19.    Top             =   3090
  20.    Width           =   6090
  21.    Begin CommandButton Command1 
  22.       Caption         =   "OK"
  23.       Height          =   315
  24.       Left            =   2580
  25.       TabIndex        =   3
  26.       Top             =   1440
  27.       Width           =   795
  28.    End
  29.    Begin Label lblEval 
  30.       BackColor       =   &H0000FFFF&
  31.       BorderStyle     =   1  'Fixed Single
  32.       Caption         =   "This is an evaluation copy.  See Help for ordering information."
  33.       ForeColor       =   &H00000000&
  34.       Height          =   255
  35.       Left            =   120
  36.       TabIndex        =   2
  37.       Top             =   1080
  38.       Visible         =   0   'False
  39.       Width           =   5685
  40.       WordWrap        =   -1  'True
  41.    End
  42.    Begin Label lblVer 
  43.       Alignment       =   2  'Center
  44.       AutoSize        =   -1  'True
  45.       BackColor       =   &H00C0C0C0&
  46.       Caption         =   "Ver x.x"
  47.       ForeColor       =   &H00000000&
  48.       Height          =   195
  49.       Left            =   120
  50.       TabIndex        =   1
  51.       Top             =   720
  52.       Width           =   5685
  53.    End
  54.    Begin Label lblAppName 
  55.       Alignment       =   2  'Center
  56.       BackColor       =   &H00C0C0C0&
  57.       Caption         =   "App Name"
  58.       FontBold        =   -1  'True
  59.       FontItalic      =   0   'False
  60.       FontName        =   "MS Sans Serif"
  61.       FontSize        =   24
  62.       FontStrikethru  =   0   'False
  63.       FontUnderline   =   0   'False
  64.       ForeColor       =   &H00800000&
  65.       Height          =   555
  66.       Left            =   120
  67.       TabIndex        =   0
  68.       Top             =   120
  69.       Width           =   5685
  70.    End
  71. End
  72. ' ********************************************************
  73. '        MDI Standard Application Shell
  74. ' ********************************************************
  75. '
  76. ' SUMMARY
  77. ' -------
  78. ' This file is part of an MDI application "skeleton"
  79. ' created by John Blessing of Leigh Business Enterprises Ltd.
  80. '
  81. ' FEATURES
  82. ' --------
  83. ' Selection of application database.
  84. ' Compact/Repair of database.
  85. ' 'Helptips' on toolbar items.
  86. ' Support for Help files.
  87. ' MDI child forms tiling etc.
  88. ' Error trapping.
  89. ' 'Nag' screen support for shareware authors.
  90. ' Support for 3D dialogs (switched off in design mode
  91. '   to prevent GPFs)
  92. '
  93. ' USE
  94. ' ---
  95. ' You need VB Pro to use this shell, although it could be
  96. ' modified to run under the standard edition.
  97. '
  98. ' You will need to set up some information in APP.BAS,
  99. ' particularly in SetAppInfo().  You will also need to add
  100. ' your own application specific code to this module.
  101. '
  102. ' DISTRIBUTION
  103. ' ------------
  104. ' This program is "FreeWare" and may be used and distributed
  105. ' as you wish.
  106. '
  107. ' It incorporates some ideas/code from other authors and these
  108. ' are acknowledged in the appropriate module.
  109. '
  110. ' We hope that you will find it useful.  If you wish to discuss it
  111. ' then please e-mail us on Compuserve 100444,623.
  112. '
  113. ' ADVERTISEMENT!
  114. ' --------------
  115. ' Are you looking for a helpdesk system? Or does your company
  116. ' want to track and monitor the progress of any work activity?
  117. ' We market a system which could be of interest to you.
  118. '
  119. ' PROGRESS is available for download from the Business section
  120. ' of the Windows Shareware forum on Compuserve
  121. ' (filename PRGRSS10.ZIP).  It's a large program, so in the
  122. ' same section you will also find the help files and
  123. ' documentation as  PRGSSDOC.ZIP which is quicker to download
  124. ' and will give you a good idea of the functionality of PROGRESS.
  125. '
  126. ' Dec 1994
  127. Option Explicit
  128.  
  129. Sub Command1_Click ()
  130.     Unload Me
  131. End Sub
  132.  
  133. Sub Form_Load ()
  134.     
  135.     Caption = "About " & tGApp.sName
  136.     lblVer.Caption = "Ver " & CStr(tGApp.dVersion)
  137.     lblAppName = tGApp.sName
  138.     If tGApp.bEvaluation Then lblEval.Visible = True
  139.     
  140.     centre Me, mdiMain
  141. End Sub
  142.  
  143.